Riddle Totals

#Riddle Totals
riddle_total <- read_excel("~/Summit/Summit Laptop/Riddles/riddle_log.xlsx", 
                         range = "R1:S12", col_types = c("text", 
                                                         "numeric")) %>% 
  mutate(Total = floor(Total))

kable(riddle_total, align = "l")
Intern Total
Marcus 10
Carly 10
Christian 6
Daniel 6
Nathalie 6
Brigid 5
Mara 4
Jess 2
Nassim 2
Luke 0
Neil 0

Marcus and Carly were our big winners, but they had very different rises to power.

#Riddles counter for plots!!!!
riddle_log <- read_excel("~/Summit/Summit Laptop/Riddles/riddle_log.xlsx", 
                         sheet = "Sheet2")

#Colors as chosen by the interns!
tol_colors = c("#332288", "#6699CC", "#88CCEE", "#44AA99", "#117733", "#999933",   
               "#DDCC77", "#FF0000", "#CC6677", "#882255", "#AA4499")


riddle_log <- riddle_log %>%
  tidyr::gather("Analyst", "Wins", Brigid:Neil)


###EVERYBODY IN ONE
ggplot(riddle_log) + 
  geom_line(aes(x = date, y = Wins, color = Analyst, size = Analyst)) +
  scale_size_manual(values = seq(5, 1, length = 11)) +
  scale_color_manual(values = tol_colors) +
  ggtitle("Riddle Log Summit Internship Rankings 2019") +
  scale_x_datetime(breaks = "1 day", date_labels = "%d. %b") +
  theme(axis.text.x = element_text(hjust = 0, angle = -45))

Breaking things down futher, let’s see how you all did individually.

##INDIVIDUAL with Riddle Names
riddle_log2 <- riddle_log %>%
  arrange(Analyst, date) %>%                # Make sure sortings is correct
  group_by(Analyst) %>%                     # 'Wins_increase' will be calculated for every Analyst 
  mutate(Wins_increase = Wins - lag(Wins))  # How much 'Wins' have increased since last day

ggplot(riddle_log, aes(x = date, y = Wins, color = Analyst)) + 
  geom_line(size = 2) +
  scale_color_manual(values = tol_colors) + 
  facet_wrap(~Analyst) +
  scale_x_datetime(breaks = "2 day", date_labels = "%d. %b") +     # as before
  theme(axis.text.x = element_text(hjust = 0, angle = -45)) +      # as before
  geom_text(data = riddle_log2 %>% filter(Wins_increase > 0),      # Pick only where "Wins" is increasing
            aes(y = Wins+ .3, label = riddle_name),                # We add 0.2 to lift the labels a bit
            hjust = "innward",vjust="inward", angle = 0, size = 3, nudge_x = TRUE, 
            color = "black")+                                       # Left-adjust and rotate labels
  ggtitle("Individual Riddles")

Thanks for playing!